<script>on mouseDownglobal curBgput the id of this bg into curBglock screenif the hilite of bg btn "Scroll" then set scroll of fld "Text" to 0if the id of this cd is the id of the last cd of this bg thenunlock screenvisual effect wipe leftgo first cdelseset lockMessages to trueput the number of the next cd of this bg into tgsend closeCard to this cdgo next cd of this bgif the hilite of bg btn "Scroll" then set the style of fld "Text" to scrollingelse set the style of fld "Text" to opaqueunlock screen with wipe leftset lockMessages to falsesend openCard to cd tgend ifend mouseDownon mouseStillDownglobal curBgif the id of this bg is curBg thenif the id of this cd is the id of the last cd of this bg thenvisual effect wipe leftgo first cdelselock screengo next cardif the hilite of bg btn "Scroll" then set the style of fld "Text" to scrollingelse set the style of fld "Text" to opaqueunlock screen with visual effect wipe leftend ifend ifend mouseStillDown</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>369</left>
<top>219</top>
<right>390</right>
<bottom>240</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>28022</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Intro</name>
<script>on mouseUpif the hilite of bg btn "Scroll" then set scroll of fld "Text" to 0visual effect dissolve to grayvisual effect dissolvego to stack "Start Here"end mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>219</top>
<right>21</right>
<bottom>240</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>17779</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev</name>
<script>on mouseDownglobal curBgput the id of this bg into curBglock screenif the hilite of bg btn "Scroll" then set scroll of fld "Text" to 0if the id of this cd is the id of the first cd of this bg thenunlock screenvisual effect wipe rightgo first cdelseset lockMessages to trueput the number of the prev cd of this bg into tgsend closeCard to this cdgo prev cd of this bgif the hilite of bg btn "Scroll" then set the style of fld "Text" to scrollingelse set the style of fld "Text" to opaqueunlock screen with wipe rightset lockMessages to falsesend openCard to cd tgend ifend mouseDownon mouseStillDownglobal curBgif the id of this bg is curBg thenif the id of this cd is the id of the first cd of this bg thenvisual effect wipe rightgo first cdelselock screengo prev cardif the hilite of bg btn "Scroll" then set the style of fld "Text" to scrollingelse set the style of fld "Text" to opaqueunlock screen with visual effect wipe rightend ifend ifend mouseStillDown</script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>5</left>
<top>5</top>
<right>412</right>
<bottom>39</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>24</textSize>
<textStyle>bold</textStyle>
<textHeight>32</textHeight>
<name>Title</name>
<script>on mouseDownif the optionKey is downthenset the visible of bg btn "Lock" to not the visible of bg btn "Lock"set the visible of bg btn "Scroll" to not the visible of bg btn "Scroll"end ifend mouseDown</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>25</left>
<top>222</top>
<right>76</right>
<bottom>238</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Lock</name>
<script>on mouseUpset the lockText of fld "Text" to the hilite of meset the lockText of fld "Title" to the hilite of meend mouseUp</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>79</left>
<top>222</top>
<right>135</right>
<bottom>238</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Scroll</name>
<script>on mouseUp-- set the visible of bg btn "Cover" to not the hilite of meif the hilite of me then set the style of fld "Text" to scrollingelse set the style of fld "Text" to opaqueend mouseUp</script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>396</left>
<top>41</top>
<right>412</right>
<bottom>203</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Cover</name>
<script></script>
</part>
<name></name>
<script>on openCardput "Page" && (the number of this card - the number of the first cd of this bg + 1) ¬&& "of" && the number of cards in this bg into fld "Page"pass openCardend openCardon arrowKey whichif which is "left" thensend mouseDown to bg btn "Prev"elseif which is "Right" thensend mouseDown to bg btn "Next"elsepass arrowKeyend ifend ifend arrowKeyon flashButtonif the short name of the target is not "Text" then exit flashButtonput the clickChunk into chitput the textStyle of the clickChunk into stylif styl contains "group" thenif styl contains "bold" thenif styl contains "italic" thenput "group,italic" into bstylelse if styl contains "underline" thenput "group,underline" into bstylelseput "group" into bstylend ifelseput styl & ",bold" into bstylend ifset the textStyle of the clickChunk to bstylwait 10set the textStyle of the clickChunk to styl-- else-- put "char" && word 2 of chit && "of" && the target into chit-- do "put CharToNum(" & chit & ") into cn"-- put cn into cn1-- if cn = 232 then put 233 into cn1-- else if cn = 233 then put 232 into cn1-- else if cn = 230 then put 231 into cn1-- else if cn = 231 then put 230 into cn1-- if cn is not cn1 then-- do "put NumToChar(" & cn1 & ") into" && chit-- wait 10-- do "put NumToChar(" & cn & ") into" && chit-- end if-- end ifend ifend flashButtonon playTuneput "A4Q. GE F#Q EQ DQ EQ F#Q DQ EE" && ¬"F#E GE EE F#Q. EE DQ C#Q DH AQ. GE F#Q EQ DQ EQ F#Q DQ EE" && ¬"F#E GE EE F#Q. EE DQ C#Q DH EQ. F#E GQ EQ F#Q. GE AQ EQ F#E" && ¬"G#E AQ BE C5#E DQ C#Q B4Q AH AQ." && ¬"GE F#Q EQ DQ EQ F#Q DQ BE BE BE BE AQ. GE F#Q EQ DH" into tuneplay "Harpsichord" tempo 210 tuneend playTune</script>
